#lang rosetta-racket


(provide normal-box)


(define (normal-box w l h)
  (lift
   (thunk (displayln (format "Normal box ~Ax~Ax~A" w l h)))
   (box w l h)))